Highlight-the-Active-Row-and-Column :



=KOLOM()=CEL("col")



=CEL("row")=RIJ()



Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate